home *** CD-ROM | disk | FTP | other *** search
/ Armageddon - Interactive Preview / Interactive Preview: Armageddon.iso / pc / control.dxr / Scripts & Behaviors_23_M4 Behavior.ls < prev    next >
Encoding:
Text File  |  1998-05-19  |  516 b   |  20 lines
  1. property pThisSprite, pTotalCasts, pCounter, pStartCast
  2.  
  3. on new me
  4.   set pThisSprite to the currentSpriteNum
  5.   set pTotalCasts to 35
  6.   set pCounter to 1
  7.   set pStartCast to the memberNum of sprite pThisSprite
  8. end
  9.  
  10. on exitFrame me
  11.   if pCounter > pTotalCasts then
  12.     set pCounter to 0
  13.     set the memberNum of sprite pThisSprite to pStartCast
  14.   else
  15.     set thisMember to the memberNum of sprite pThisSprite
  16.     set the memberNum of sprite pThisSprite to thisMember + 1
  17.     set pCounter to pCounter + 1
  18.   end if
  19. end
  20.